10 REM COPYRIGHT 1987 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFPEEK(49155)<>14THENGOSUB1600
30 DIMA(17,16),SC(17),V(17,16):X=RND(-TI)
40 SYS49152:FORT=0TO7:POKE14336+160*8+T,255:NEXT
50 PRINT"[147]":FORT=54272TO54296:POKET,0:NEXT:POKE54296,15
60 POKE53272,31:POKE53281,0:POKE53280,11:H=1024:CL=54272+H:POKE54278,240
70 POKE53280,0:POKE2040,13:POKE54276,17:FC=252:FD=253
80 FORT=0TO127:POKE832+T,0:NEXT:FORT=0TO7:READX:POKE832+T*3,X:NEXT:POKE53287,1
90 FORT=0TO9:READEF(T):NEXT:C(2)=15
100 INPUT"[158]1 OR 2 JOYSTICKS";JN:IFJN=1THENPRINT"[159]PLUG IT IN PORT ONE."
110 IFJN=0ORJN>2THEN100
120 A$="[144][159][156][158][129][149][150][151][152][153][154][155]"
130 PRINTC$"                     "
140 T=C(2):PRINT"[154]SELECT GROUND COLOR WITH THE SPACE BAR, AND THEN HIT F7."
150 IFPEEK(203)=60THENT=T+1:C(2)=T
160 C$=MID$(A$,(15ANDT)+1,1):FORX=1TO30:NEXT:IFPEEK(203)<>3THEN130
170 FORT=1TO15:POKEH+364+T*2,160:POKECL+364+T*2,T:NEXT:POKE198,0
180 INPUT"[153]PLAYER ONE'S ROOT COLOR (1-15)";C(0):C(0)=C(0)AND15:IFC(0)=0THEN180
190 INPUT"PLAYER TWO'S ROOT COLOR (1-15)";C(1):C(1)=C(1)AND15:IFC(1)=0THEN190
200 IFC(0)=C(1)THENPRINT"THOSE COLORS ARE THE SAME !!":GOTO180
210 POKE198,0:INPUT"[158]HOW MANY TREES PER PLAYER (3-9)";TN:IFTN>9ORTN<3THEN210
220 Q=TN*2:PRINT"SELECT A GAME: F1=TWO PLAYERS"
230 PRINT"               F3=GAME DEMONSTRATION"
240 PRINT"               F5=PLAYER VS COMPUTER"
250 GETA$:IFA$=""THEN250
260 IFA$<>"[133]"ANDA$<>"[134]"ANDA$<>"[135]"THEN250
270 P$(0)="COMPUTER ONE":P$(1)="COMPUTER TWO":IFA$="[134]"THEN330
280 IFA$="[135]"THENP$(0)="PLAYER 1":P$(1)="COMPUTER":INPUT"[159]NAME";P$(0):GOTO330
290 INPUT"[159]PLAYER ONE'S NAME";P$(0):INPUT"[155]PLAYER TWO'S NAME";P$(1)
300 IFP$(0)="COMPUTER ONE"THENP$(0)="PLAYER ONE"
310 IFP$(1)="COMPUTER TWO"THENP$(1)="PLAYER TWO"
320 P$(0)=LEFT$(P$(0),14):P$(1)=LEFT$(P$(1),14)
330 FORT=0TOQ-1:A(T,0)=T+2:NEXT
340 GOSUB1420:POKE53269,1:QZ=0
350 U=56320:U2=56321:F=0
360 M=0:PRINT"[146]"
370 PL=0:CM=A$="[134]":GOSUB1090:IFM=Q-1-RCTHENRC=RC+1:M=0:L=0
380 IFRC=Q-2THEN420
390 PL=1:CM=(A$="[135]"ORA$="[134]"):GOSUB1090:IFM=Q-1-RCTHENRC=RC+1:M=0:L=0
400 IFRC=Q-2THEN420
410 GOTO370
420 S1=SC(A(0,Q-2)-2):S2=SC(A(1,Q-2)-2):B=(A(0,Q-2)AND1):POKEFC,0
430 IFS1>S2ANDB=0THENK=0
440 IFS1>S2ANDB=1THENK=1
450 IFS2>S1ANDB=0THENK=1
460 IFS2>S1ANDB=1THENK=0
470 G$=P$(KAND1)
480 POKE53269,0:POKE198,0:POKEFD,0:G2$="S":IFABS(S1-S2)=1THENG2$=""
490 FORT=0TO300:NEXT
500 IFS1<>S2THENPRINT""SP$"THE WINNER IS [158]"G$", WHOSE ROOT"
510 IFS1=S2THENPRINT"[159]A TIE GAME. (GOOD DEFENSE BY PLAYER 2)"
520 IFS1<>S2THENPRINT"SYSTEM IS"ABS(S1-S2)"YARD"G2$" LARGER."
530 READB,D,X:IFB<0THEN550
540 POKE54272,D:POKEFC,B:FORT=1TOX*88:NEXT:GOTO530
550 POKE54272,0:POKEFC,0:RESTORE:FORT=1TO18:READX:NEXT
560 PRINT"[153]    PLAY SAME GAME AGAIN? (Y<< >>N)";
570 IFPEEK(203)=39ORPEEK(U2)=247THENPRINT"[147]":J=1:GOTO600
580 IFPEEK(203)=25ORPEEK(U2)=251THENJ=2:GOTO600
590 GOTO570
600 PRINT"[147]":FORT=0TO17:FORX=0TO16:SC(T)=0:A(T,X)=0:NEXT:NEXT:RC=0:LG=0
610 ONJGOTO120,330
620 E=0:PRINT"                           ";
630 IFRX+D>Q-RC-2THEN780
640 IFRX+D<0THEN780
650 IFA(RX+D,RC+1)AND1<>0THEN780
660 B=INT(RND(-TI)*5):POKEFD,0:POKEFC,EF(B*2):POKEFD,EF(B*2+1)
670 A(RX+D,RC+1)=A(RX,RC):SC(A(RX,RC)-2)=SC(A(RX,RC)-2)+1:V(RX+D,RC+1)=D+2
680 T=INT(RND(0)*3)*4
690 IFDTHEN730
700 IFPEEK(X+H)<>143THENPOKEX+H,140+T/4:GOTO720
710 POKEH+X,130+T
720 POKEX+H+1,131+T:POKEX+CL,C(PL):POKEX+CL+1,C(PL)
730 IFNOTDTHEN770
740 POKEX+H-1,128+T:POKEX+CL-1,C(PL):POKEX+CL,C(PL)
750 IFPEEK(X+H)<>143THENPOKEX+H,140+T/4:GOTO770
760 POKEH+X,129+T
770 M=M+1:RETURN
780 E=-1:RETURN
790 POKEFD,0:POKEFC,2:POKE54276,33
800 PRINT"[153]NO MOVES ARE POSSIBLE FOR "P$(PL);:FORT=1TO2000:NEXT
810 POKEFC,0:POKE54276,17:RETURN
820 IFXT>0THENIFA(XT-1,RY)AND1=0ANDA(XT+1,RY)AND1=0THENDD=NOTDD
830 IFXT=0THENXT=1:DD=0
840 RETURN
850 FF=0:D=1:IFRX<0THENRX=0
860 IFRC=0ANDF=<TN-2THENF=F+1:RX=TN-1:GOTO1120
870 IFF>1ANDRC>0THENRX=INT(TN-RY/2)-1:IFRX<0THENRX=0
880 FF=-1:IFRY>1THEN920
890 DD=-1:IFRX>0THENIF(-A(RX-1,RY)AND1)THENIF-A(RX+1,RY)AND1THENRX=RX-1:GOTO890
900 IFRX>0THENIF(-A(RX-1,RY)AND1)AND(A(RX+1,RY)AND1=0)THENDD=0
910 GOTO1120
920 FORT=0TOTN*2:IF(A(T,1)AND1)=0THENNEXT
930 IFT=TNTHENIF-(TNAND1)THENCS=-1:TR=TN+2:GOTO980
940 IFT=TN-1THENIF(TNAND1)=0THENCS=-1:TR=TN+3:QZ=-1:GOTO970
950 LG=0:FORT=3TOTN*2-5STEP2:IFSC(T)>LGTHENLG=SC(T):TR=T+2
960 NEXT:CS=0:IFTR-2>TNTHENCS=-1
970 IFCS=0THEN1040
980 DD=-1:FORT=1TOTN*2-RY-1:IFA(T,RY)<>TRTHENNEXT
990 XT=T
1000 IF(RY>TN-1)THENIF(-A(XT+1,RY)AND1)AND(A(0,RY)AND1=1)THENXT=XT+1
1010 DD=0:GOTO1000
1020 IFQZTHENRX=XT:DD=-1:GOTO1120
1030 GOTO1080
1040 D=1:DD=0:FORT=TN*2-RYTO1STEP-1:IFA(T,RY)<>TRORA(T,RY+1)>0THENNEXT
1050 XT=T
1060 IFRY>TN-1ANDXT>0THENIF(-A(XT-1,RY)AND1)THENXT=XT-1:DD=-1:GOTO1060
1070 IFPEEK(203)=2THENEND
1080 GOSUB820:RX=XT:GOTO1120
1090 PRINT""SP$;""P$(PL)"'S MOVE..";:RX=0:RY=RC:D=1
1100 POKE53269,0:B=0:E=0:FF=0:IFCMTHENRX=INT(RND(1)*(Q-RY-2))
1110 IFA$="[135]"ANDPL=1THEN850
1120 IF(RX>Q-RC-1)ANDBTHENRX=0
1130 IF(RX<0)ANDBTHENRX=Q-RC-1
1140 IFRX>Q-RC-1ANDNOTBTHENE=E+1:RX=0
1150 IFRX<0ANDNOTBTHENE=E+1:RX=Q-RC-1
1160 PY=99+RC*8:PX=(CE+RC)*8+24+RX*16:IFE>1THEN790
1170 IF(A(RX,RC)AND1)<>PLTHENRX=RX+D:GOTO1120
1180 X=INT((PX-24)/8)+INT((PY-50)/8)*40
1190 IFPEEK(X+H+1)<>148ANDPEEK(X+H-1)<>148THENRX=RX+D:GOTO1120
1200 IFPX>255THENPOKE53264,1
1210 IFPX<256THENPOKE53264,0
1220 POKE53248,PXAND255:POKE53249,PY:B=-1:POKE53269,1
1230 IFNOTCMTHEN1270
1240 D=INT(RND(1)*2)-1:IFFFTHEND=DD
1250 GOSUB620:IFETHEND=INT(RND(1)*2)-1:GOTO1250
1260 RETURN
1270 J=1:IFPL=1ANDJN=2THENPOKE56322,0:J=0
1280 IF(PEEK(U+J)AND8)=0THENRX=RX+1:D=1:GOTO1100
1290 IF(PEEK(U+J)AND4)=0THENRX=RX-1:D=-1:GOTO1100
1300 POKEU,127
1310 IF(PEEK(U+J)AND16)>0THEN1270
1320 PRINT"[146]WHICH WAY???                   ";
1330 D=-2
1340 IF(PEEK(U+J)AND8)=0THEND=0
1350 IF(PEEK(U+J)AND4)=0THEND=-1
1360 POKE56322,255
1370 IFD=-2THEN1340
1380 GOSUB620:IFNOTETHENRETURN
1390 PRINT"     [158]I M P O S S I B L E   M O V E"
1400 POKEFD,0:POKE54276,33:FORK=0TO5*(null)STEP.2:POKEFC,ABS(SIN(K)*9)+3:NEXT
1410 POKE54276,17:POKEFC,0:GOTO1090
1420 SP$="                                        ":CE=20-Q:G$="":G2$=""
1430 PRINT"[147]"SP$C$""
1440 FORT=2TOCE:G$=G$+" ":NEXT:G$=G$+"U"
1450 FORT=1TOCE:G2$=G2$+" ":NEXT:G2$="V"+G2$
1460 D$="OT":FORT=1TOQ-2:D$=D$+"OT":NEXT:D$=D$+"O"
1470 G$=""+G$
1480 X=160+H+CE:X2=160+CL+CE:FORT=0TOTN-1:POKEX+T*4,147:POKEX2+T*4,C(0)
1490 POKEX+T*4+40,146:POKEX2+T*4+40,C(0):POKEX+T*4+2,145:POKEX2+T*4+2,C(1)
1500 POKEX+T*4+42,144:POKEX2+T*4+42,C(1)
1510 NEXT
1520 FORT=1TOQ-2
1530 PRINTG$"[152]"D$C$G2$;:D$=LEFT$(D$,LEN(D$)-2):G2$=G2$+" "
1540 G$=" "+G$
1550 NEXT
1560 IFTN<10THENFORT=1TO(10-TN)*2:PRINTSP$;:NEXT
1570 T=(10-TN)*2
1580 FORK=0TO2:POKE56276-K-T*40,14:NEXT
1590 PRINT"";:RETURN
1600 POKE53281,1:POKE53280,1:PRINT"[147][129]   COPYRIGHT 1987 COMPUTE! PUB., INC."
1610 PRINTTAB(10)"ALL RIGHTS RESERVED"
1620 PRINTTAB(11)"R O O T   R A C E"
1630 FORI=1TO350:READA:X=X+A:NEXT
1640 IFX<>25073THENPRINT"ERROR IN DATA STATEMENTS.":STOP
1650 RESTORE:FORT=1TO66:READX:NEXT
1660 FORT=0TO99:READX:POKE49152+T,X:NEXT:FORT=0TO183:READX:POKE15360+T,X:NEXT
1670 RESTORE:RETURN
1680 DATA 24,60,126,255,219,24,24,24,18,70,16,16,21,113,18,50,5,131
1690 DATA 16,195,1.5,14,239,1,16,195,1.5,18,209,1,16,195,1.5
1700 DATA 18,209,1,21,31,1.5,18,209,1,42,62,1.5,31,165,1,42,62,1.5
1710 DATA 31,165,1,18,209,1.5,31,165,1,50,60,2.5,-1,-1,-1
1720 DATA 169,0,141,14,220,169,251,37,1,133,1,162,0,189,0,208,157,0,56
1730 DATA 189,0,209,157,0,57,232,208,241,165,1,9,4,133,1,169,1,141,14
1740 DATA 220,169,27,141,17,208,169,127,141,13,220,169,65,141,20,3,169,192,141
1750 DATA 21,3,169,129,141,26,208,96,165,252,240,5,24,101,253,133,252,141,1
1760 DATA 212,169,1,141,25,208,169,0,141,18,208,173,13,220,41,1,240,3,76
1770 DATA 49,234,76,188,254
1780 DATA 0,0,0,3,6,12,24,24,24,24,48,224,0,0,0,0,24,24,48,51,30
1790 DATA 0,0,0,0,0,0,224,48,24,24,24,0,0,0,1,3,6,12,24,24,24,112,192
1800 DATA 0,0,0,0,24,24,12,6,3,0,0,0,0
1810 DATA 0,0,192,240,24,24,24,0,0,0,15,24,48,48,24,24,112,192,128
1820 DATA 0,0,0,0,24,12,12,7,0,0,0,0,0,0,0,0,224,48,24
1830 DATA 24,24,24,60,231,129,0,0,0,28,54,99,193,0,0,0,0,24,120
1840 DATA 200,203,14,0,0,0,0,0,0,0,0,0,0,0,126,24,255,24,255
1850 DATA 24,60,126,0,0,24,24,60,24,126,24,255,60,24,24,24,60,126,219
1860 DATA 0,24,60,60,126,126,255,255,0,0,0,56,124,56,0,0,128,192,224
1870 DATA 240,248,252,254,255,1,3,7,15,31,63,127,255